home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mdishe / fusage.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-28  |  5.3 KB  |  154 lines
  1. VERSION 2.00
  2. Begin Form fUsage 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Evaluation copy"
  6.    ClientHeight    =   4125
  7.    ClientLeft      =   3450
  8.    ClientTop       =   1650
  9.    ClientWidth     =   6090
  10.    ForeColor       =   &H00000000&
  11.    Height          =   4530
  12.    Left            =   3390
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4125
  17.    ScaleWidth      =   6090
  18.    Top             =   1305
  19.    Width           =   6210
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Height          =   315
  23.       Left            =   2700
  24.       TabIndex        =   3
  25.       Top             =   3630
  26.       Width           =   795
  27.    End
  28.    Begin Label Label3 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "When you register, you will be supplied with the latest version and..."
  31.       Height          =   645
  32.       Index           =   2
  33.       Left            =   150
  34.       TabIndex        =   4
  35.       Top             =   2700
  36.       Width           =   5805
  37.    End
  38.    Begin Label Label3 
  39.       BackColor       =   &H00C0C0C0&
  40.       Caption         =   "If you find this program useful then you should register.  Details on how to register can be found on the Help menu."
  41.       Height          =   405
  42.       Index           =   0
  43.       Left            =   150
  44.       TabIndex        =   2
  45.       Top             =   2130
  46.       Width           =   5805
  47.    End
  48.    Begin Label Label3 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "This program is supplied on a 'Try before you buy' basis.  Your license for this version allows you thirty days to evaluate it."
  51.       Height          =   465
  52.       Index           =   1
  53.       Left            =   150
  54.       TabIndex        =   6
  55.       Top             =   1530
  56.       Width           =   5805
  57.    End
  58.    Begin Label lblUsed 
  59.       BackColor       =   &H00C0C0C0&
  60.       Caption         =   "You have used this program 99 times."
  61.       Height          =   285
  62.       Left            =   180
  63.       TabIndex        =   5
  64.       Top             =   1080
  65.       Width           =   3525
  66.    End
  67.    Begin Label lblVer 
  68.       Alignment       =   2  'Center
  69.       AutoSize        =   -1  'True
  70.       BackColor       =   &H00C0C0C0&
  71.       Caption         =   "Ver x.x"
  72.       ForeColor       =   &H00000000&
  73.       Height          =   195
  74.       Left            =   120
  75.       TabIndex        =   1
  76.       Top             =   660
  77.       Width           =   5775
  78.    End
  79.    Begin Label lblAppName 
  80.       Alignment       =   2  'Center
  81.       AutoSize        =   -1  'True
  82.       BackColor       =   &H00C0C0C0&
  83.       Caption         =   "App Name"
  84.       FontBold        =   -1  'True
  85.       FontItalic      =   0   'False
  86.       FontName        =   "MS Sans Serif"
  87.       FontSize        =   24
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       ForeColor       =   &H00800000&
  91.       Height          =   555
  92.       Left            =   120
  93.       TabIndex        =   0
  94.       Top             =   60
  95.       Width           =   5790
  96.    End
  97. ' ********************************************************
  98. '        MDI Standard Application Shell
  99. ' ********************************************************
  100. ' SUMMARY
  101. ' -------
  102. ' This file is part of an MDI application "skeleton"
  103. ' created by John Blessing of Leigh Business Enterprises Ltd.
  104. ' FEATURES
  105. ' --------
  106. ' Selection of application database.
  107. ' Compact/Repair of database.
  108. ' 'Helptips' on toolbar items.
  109. ' Support for Help files.
  110. ' MDI child forms tiling etc.
  111. ' Error trapping.
  112. ' 'Nag' screen support for shareware authors.
  113. ' Support for 3D dialogs (switched off in design mode
  114. '   to prevent GPFs)
  115. ' USE
  116. ' ---
  117. ' You need VB Pro to use this shell, although it could be
  118. ' modified to run under the standard edition.
  119. ' You will need to set up some information in APP.BAS,
  120. ' particularly in SetAppInfo().  You will also need to add
  121. ' your own application specific code to this module.
  122. ' DISTRIBUTION
  123. ' ------------
  124. ' This program is "FreeWare" and may be used and distributed
  125. ' as you wish.
  126. ' It incorporates some ideas/code from other authors and these
  127. ' are acknowledged in the appropriate module.
  128. ' We hope that you will find it useful.  If you wish to discuss it
  129. ' then please e-mail us on Compuserve 100444,623.
  130. ' ADVERTISEMENT!
  131. ' --------------
  132. ' Are you looking for a helpdesk system? Or does your company
  133. ' want to track and monitor the progress of any work activity?
  134. ' We market a system which could be of interest to you.
  135. ' PROGRESS is available for download from the Business section
  136. ' of the Windows Shareware forum on Compuserve
  137. ' (filename PRGRSS10.ZIP).  It's a large program, so in the
  138. ' same section you will also find the help files and
  139. ' documentation as  PRGSSDOC.ZIP which is quicker to download
  140. ' and will give you a good idea of the functionality of PROGRESS.
  141. ' Dec 1994
  142. Option Explicit
  143. Sub Command1_Click ()
  144.     Unload Me
  145. End Sub
  146. Sub Form_Load ()
  147.     lblVer.Caption = "Ver " & CStr(tGApp.dVersion)
  148.     lblAppName = tGApp.sName
  149.     centre Me, mdiMain
  150. End Sub
  151. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  152.             KeepOnTop Me, False
  153. End Sub
  154.